home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / ca29_3.zip / HOST.CMD < prev    next >
OS/2 REXX Batch file  |  1992-07-03  |  6KB  |  451 lines
  1. LEGE "Scripted HOST mode (1.1).     Press ESC to exit."
  2. S20="_PARM"(11:14)*","*"_PARM"(0:3)
  3. S21="ATE0Q0V1X1S0=2 S7=30 S9=10^M"
  4. S22="****"
  5. S23="xxxx"
  6. S24=""
  7. SET PARI NONE
  8. SET DATA 8
  9. SET STOP 1
  10. SET MASK ON
  11. SET CR_I CR_L
  12. SET ASCI UP_L LF
  13. SET SOFT ON
  14. IF ISSC "HOSTDAT" FCALL "HOSTDAT"
  15. S0=S22
  16. S3=S23
  17. SUBD S29
  18. DLDI S28
  19. LOG MARK ON
  20. CLOG "* Host script loaded"
  21. ON ESCA GOSU End
  22. SET INAF OFF
  23. SET ALAR OFF
  24. SET ATIM 1
  25. SET PORT S20(0:3)
  26. IF FCALLED and ISFILE "HOSTTEMP.BAT"
  27. SET RECH ON
  28. LOG OPEN "HOSTLOG"
  29. CLOG "* Return from drop-to-DOS"
  30. GOTO Main_Pro
  31. ENDI
  32. SET BAUD S20(5:8)
  33. TRAN "_MESCAPE"
  34. GOTO Restart
  35. End:
  36. HANG
  37. CLOG "* HOST script terminated"
  38. SET DLDI S28
  39. CHDI S29
  40. RESE
  41. CLEA
  42. MESS "HOST terminated... type Alt-X to exit COM-AND^M^J^M^J"
  43. TRAN "_MINIT"
  44. DELE "\HOSTTEMP.TXT"
  45. EXIT
  46. Read_Com:
  47. RGET S9 80 180
  48. IF NOT CONNECTED
  49. GOTO Disconne
  50. ENDI
  51. IF NOT SUCCESS
  52. GOTO Timeout
  53. ENDI
  54. FIND S9 "NO CARRIER"
  55. IF FOUND
  56. GOTO Disconne
  57. ENDI
  58. SET FLAG(0) OFF
  59. RETU
  60. Timeout:
  61. TRAN "^M^J... autodisconnect due to timeout"
  62. MESS "^M^J... autodisconnect due to timeout"
  63. GOTO RComm_Ex
  64. Disconne:
  65. MESS "^M^JCaller disconnected"
  66. RComm_Ex:
  67. SET FLAG(0) ON
  68. RETU
  69. Restart:
  70. CHDI S29
  71. SET RECH OFF
  72. SET RDIS OFF
  73. CLEA
  74. LOCA 0,0
  75. HANG
  76. MESS "^M^JWaiting...!"
  77. PAUS 3
  78. SET BAUD S20(5:8)
  79. TRAN S21
  80. WAIT_IT_:
  81. RGET S9 80 180
  82. IF NOT SUCCESS
  83. GOTO Wait_IT_
  84. ENDI
  85. FIND S9 "NO CARRIER"
  86. IF FOUND
  87. GOTO Restart
  88. ENDI
  89. FIND S9 "CONNECT"
  90. IF NOT FOUND
  91. GOTO WAIT_IT_
  92. ENDI
  93. GOSU AutoBaud
  94. PAUS 2
  95. RFLU
  96. TRAN "^M^JThe Flying Scotsman greets you!!^M^J"
  97. SET RECH ON
  98. SET RDIS ON
  99. LOG OPEN "HOSTLOG"
  100. ID_Query:
  101. MESS "^M^JID prompt: "
  102. TRAN "^M^JEnter your ID: "
  103. GOSU Read_Com
  104. IF FLAG(0)
  105. GOTO Exit
  106. ENDI
  107. SWIT S9
  108. CASE "_NULL"
  109. TRAN "You must be someone^M^J"
  110. GOTO Exit
  111. ENDC
  112. ENDS
  113. CLOG "* Host mode logon by "*S9
  114. TRAN "^M^JEnter your password: "
  115. LOG SUSP
  116. SET RECH OFF
  117. SET RDIS OFF
  118. GOSU Read_Com
  119. IF FLAG(0)
  120. GOTO Exit
  121. ENDI
  122. LOG RESU
  123. SET RECH ON
  124. SET RDIS ON
  125. SWIT S9
  126. CASE S0
  127. TRAN "^M^J"
  128. ENDC
  129. DEFA
  130. TRAN "Sorry , but you're not authorized."
  131. GOTO Exit
  132. ENDC
  133. ENDS
  134. Main_Pro:
  135. MESS "^M^JMain prompt: "
  136. TRAN "^M^JC)hdir F)ilelist, P)athlist, U)pload, D)ownload, or E)xit: "
  137. GOSU Read_Com
  138. IF FLAG(0)
  139. GOTO EXIT
  140. ENDI
  141. SWIT S9
  142. CASE "C"
  143. GOTO CHDIR
  144. ENDC
  145. CASE "D"
  146. GOTO DOWNLOAD
  147. ENDC
  148. CASE "E"
  149. TRAN "Ok... bye^M^J"
  150. GOTO EXIT
  151. ENDC
  152. CASE "F"
  153. GOTO FILELIST
  154. ENDC
  155. CASE "P"
  156. GOTO PATHLIST
  157. ENDC
  158. CASE "U"
  159. GOTO UPLOAD
  160. ENDC
  161. CASE "X"
  162. GOTO DOS
  163. ENDC
  164. CASE "Y"
  165. GOTO DROPDOS
  166. ENDC
  167. CASE "OFF"
  168. TRAN "Ok... bye^M^J"
  169. GOTO EXIT
  170. ENDC
  171. DEFA
  172. FIND S9 "CHDIR"
  173. IF FOUND
  174. GOTO CHDIR
  175. ENDI
  176. FIND S9 "DOWN"
  177. IF FOUND
  178. GOTO DOWNLOAD
  179. ENDI
  180. FIND S9 "FILE"
  181. IF FOUND
  182. GOTO FILELIST
  183. ENDI
  184. FIND S9 "PATH"
  185. IF FOUND
  186. GOTO PATHLIST
  187. ENDI
  188. FIND S9 "UP"
  189. IF FOUND
  190. GOTO UPLOAD
  191. ENDI
  192. FIND S9 "DOS"
  193. IF FOUND
  194. GOTO DOS
  195. ENDI
  196. TRAN "^M^JCommand not recognized... try again"
  197. GOTO Main_Pro
  198. ENDC
  199. ENDS
  200. TRAN "^M^JThank you veddy much.^M^J"
  201. GOTO Main_Pro
  202. EXIT:
  203. CLOG "* Host mode exit"
  204. LOG CLOS
  205. MESS "^G"
  206. GOTO Restart
  207. File_Que:
  208. MESS "^M^JFname query: "
  209. TRAN "^M^JEnter the file name: "
  210. GOSU Read_Com
  211. IF FLAG(0)
  212. RETU
  213. ENDI
  214. ASSI S8 S9
  215. SWIT S8
  216. CASE "_NULL"
  217. SET FLAG(1) ON
  218. RETU
  219. ENDC
  220. ENDS
  221. SET FLAG(1) OFF
  222. RETU
  223. UPLOAD:
  224. MESS "^M^JUpload from caller"
  225. GOSU File_Que
  226. IF FLAG(0)
  227. GOTO EXIT
  228. ENDI
  229. IF FLAG(1)
  230. GOTO Main_Pro
  231. ENDI
  232. ISFI S8
  233. IF SUCCESS
  234. TRAN "^M^JFile already exists"
  235. GOTO UPLOAD
  236. ENDI
  237. MESS "!Method prompt: "
  238. TRAN "^M^JW)xmodem, X)modem, Y)modem (X1k), Z)modem, or K)ermit: "
  239. GOSU Read_Com
  240. IF FLAG(0)
  241. GOTO Main_Pro
  242. ENDI
  243. SWIT S9
  244. CASE "W"
  245. GETF WXMODEM S8
  246. ENDC
  247. CASE "X"
  248. GETF XMODEM S8
  249. ENDC
  250. CASE "Y"
  251. GETF YMODEM S8
  252. ENDC
  253. CASE "Z"
  254. GETF ZMODEM
  255. ENDC
  256. CASE "K"
  257. GETF KERMIT
  258. ENDC
  259. DEFA
  260. TRAN "^M^JInvalid transfer selection"
  261. GOTO Main_Pro
  262. ENDC
  263. ENDS
  264. GOTO EOTransf
  265. DOWNLOAD:
  266. MESS "^M^JDownload to caller"
  267. GOSU File_Que
  268. IF FLAG(0)
  269. GOTO EXIT
  270. ENDI
  271. IF FLAG(1)
  272. GOTO Main_Pro
  273. ENDI
  274. ISFI S8
  275. IF NOT SUCCESS
  276. TRAN "^M^JFile doesn't exist"
  277. GOTO DOWNLOAD
  278. ENDI
  279. MESS "^M^JMethod prompt "
  280. TRAN "^MW)xmodem, X)modem, Y)modem (X1k), Z)modem, K)ermit, or A)scii: "
  281. GOSU Read_Com
  282. IF FLAG(0)
  283. GOTO Main_Pro
  284. ENDI
  285. SWIT S9
  286. CASE "A"
  287. SEND ASCII S8
  288. ENDC
  289. CASE "W"
  290. SEND WXMODEM S8
  291. ENDC
  292. CASE "X"
  293. SEND XMODEM S8
  294. ENDC
  295. CASE "Y"
  296. SEND YMODEM S8
  297. ENDC
  298. CASE "Z"
  299. SEND ZMODEM S8
  300. ENDC
  301. CASE "K"
  302. SEND KERMIT S8
  303. ENDC
  304. DEFA
  305. TRAN "^M^JInvalid transfer selection"
  306. GOTO Main_Pro
  307. ENDC
  308. ENDS
  309. GOTO EOTransf
  310. EOTRANSF:
  311. IF NOT SUCCESS
  312. MESS "^M^JTransfer failed"
  313. ELSE
  314. MESS "^M^JTransfer OK"
  315. ENDI
  316. GOTO Main_Pro
  317. FILELIST:
  318. MESS "^M^JFilelist command: "
  319. TRAN "^M^J Working..."
  320. DOS "DIR >HOSTTEMP.TXT"
  321. TRAN "^M^J"
  322. SEND ASCII "HOSTTEMP.TXT"
  323. TRAN "^M^J"
  324. DOS "DEL HOSTTEMP.TXT"
  325. GOTO Main_Pro
  326. CHDIR:
  327. MESS "^M^JCHDIR Command: "
  328. TRAN "^M^JEnter the drive:subdirectory: "
  329. GOSU Read_Com
  330. IF FLAG(0)
  331. GOTO Main_Pro
  332. ENDI
  333. CHDI S9
  334. GOTO Main_Pro
  335. PATHLIST:
  336. MESS "^M^JPathlist command: "
  337. TRAN "^M^J Working..."
  338. DOS "Treed >HOSTTEMP.TXT"
  339. TRAN "^M^J"
  340. SEND ASCII "HOSTTEMP.TXT"
  341. TRAN "^M^J"
  342. DOS "DEL HOSTTEMP.TXT"
  343. GOTO Main_Pro
  344. DOS:
  345. GOSU DOSPSW
  346. IF FAILED GOTO Main_Prompt
  347. MESS "^M^JDOS Command: "
  348. TRAN "^M^JEnter the command: "
  349. GOSU Read_Com
  350. IF FLAG(0)
  351. GOTO Main_Pro
  352. ENDI
  353. TRAN "^M^J Working..."
  354. CONC S9 ">HOSTTEMP.TXT"
  355. DOS S9
  356. TRAN "^M^J"
  357. SEND ASCII "HOSTTEMP.TXT"
  358. TRAN "^M^J"
  359. DOS "DEL HOSTTEMP.TXT"
  360. GOTO Main_Pro
  361. DOSPSW:
  362. MESS "^M^JRequesting DOS password"
  363. LOG SUSP
  364. SET RECH OFF
  365. SET RDIS OFF
  366. TRAN "^M^JEnter the DOS password: "
  367. GOSU Read_Com
  368. IF FLAG(0)
  369. GOTO DOSPERR
  370. ENDI
  371. LOG RESU
  372. SET RECH ON
  373. SET RDIS ON
  374. SWIT S9
  375. CASE S3
  376. TRAN "^M^J"
  377. ENDC
  378. DEFA
  379. TRAN "Sorry , but you're not authorized."
  380. GOTO DOSPERR
  381. ENDC
  382. ENDS
  383. LOG RESU
  384. SET SUCC ON
  385. RETU
  386. DOSPERR:
  387. LOG RESU
  388. SET SUCC OFF
  389. RETU
  390. DROPDOS:
  391. IF NULL S24
  392. TRAN "^M^JCommand not recognized... try again"
  393. GOTO Main_Pro
  394. ENDI
  395. GOSU DOSPSW
  396. IF FAILED GOTO Main_Prompt
  397. FOPENO "HOSTTEMP.BAT" TEXT
  398. IF NOT SUCCESS
  399. TRAN "File error - cannot drop to DOS^M^J"
  400. GOTO Main_Pro
  401. ENDI
  402. WRIT "ECHO OFF!"
  403. S0=S24
  404. PRES S0
  405. WRIT S0
  406. WRIT "!"
  407. WRIT "CD "*S29*"!"
  408. WRIT "COM-AND /q/p/fHOSTART!"
  409. WRIT "^Z"
  410. FCLOSEO
  411. CLOG "* Drop-to-DOS"
  412. SET TTHR OFF
  413. STAC CLEAR
  414. STAC "HOSTTEMP.BAT!"
  415. BYE
  416. AutoBaud:
  417. IF FIND S9 "1200"
  418. SET BAUD 1200
  419. RETU
  420. ENDI
  421. IF FIND S9 "2400"
  422. SET BAUD 2400
  423. RETU
  424. ENDI
  425. IF FIND S9 "4800"
  426. SET BAUD 4800
  427. RETU
  428. ENDI
  429. IF FIND S9 "9600"
  430. SET BAUD 9600
  431. RETU
  432. ENDI
  433. IF FIND S9 "14400" or FIND S9 "14.4"
  434. SET BAUD 14k
  435. RETU
  436. ENDI
  437. IF FIND S9 "19200" or FIND S9 "19.2"
  438. SET BAUD 19k
  439. RETU
  440. ENDI
  441. IF FIND S9 "38400" or FIND S9 "38.4"
  442. SET BAUD 38k
  443. RETU
  444. ENDI
  445. IF FIND S9 "57600" or FIND S9 "57.6"
  446. SET BAUD 57k
  447. RETU
  448. ENDI
  449. SET BAUD 300
  450. RETU
  451.